1 HOME : PRINT "THIS PROGRAM CREATES A TEXT FILE WHICH ADDS A SUBROUTINE TO PROGRAMS TO ALLOW ANY CHARACTERS (INCLUDING PUNCTUATION MARKS) TO BE INPUT FROM APPLESOFT.": PRINT : PRINT " THIS IS AN IMPROVED VERSION OF THE"
2 PRINT "ROUTINES BY JOHN CROSSLEY OF APPLE AND ALLOWS STRING COMPARISON TO WORK COR- RECTLY.": PRINT " TO USE 'IN$' MUST BE THE FIRST VARIABLE DECLARED. USE 'CALL 768: IN$=MID$(IN$,1) INSTEAD OF 'INPUT' STATEMENT."
3 PRINT : PRINT : INPUT "PRESS RETURN TO CREATE/ PRESS Q TO QUIT ";A$: IF A$ = "Q" THEN END
4 D$ = CHR$(4)
5 PRINT D$;"OPEN LINE INPUT"
6 PRINT D$;"WRITE LINE INPUT"
7 LIST 10,14
8 PRINT D$;"CLOSE"
9 END
10 IN$ = "X"
11 FOR J = 768 TO 799: READ I: POKE J,I: NEXT
12 DATA 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,169,128,93,0,2,157,0,2,202,16,245,96
13 REM CALL 768:IN$=MID$(IN$,1) ** USE THIS FOR INPUT **